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--OwiiFCKTH NEWELETTER -- 

Inteactiye Cosiput-et' bysteffts-.* Ire. pr-oyides this 
riewsietter for (3BrdF(3RTH users., it is or way of 
diuird yai norS' infcruatiori aJjout- OwiiFORTH aid 
anncuncird new Pr-c<iic-ts. Ue also wist, to stiiwlate 
int-a^-est in FCRTH a'd solicit letters^ ctawents^ ad 
sua^tions. to iapfoge. a»niFC8?TH. 

(lew Predicts How Flvailiile:.. 

a) Cross Refaaice...Price $25 

Prints a sorted crc<s-s r-eference of your FORTH 
plication. Identifies eaeft word tfat you create 
ard wret'e it is used. Extanal werds that ae pat 
of FOF.TH ae alai sFiown. Excel lait for- traird 
word usaae.. da-unenUtia.. and permits raid 
redefinition of a t>ase werd and all words that 
used it. Distributed as sour-ce listirds and syste# 
dociJBientatiai. (UsniFORTH usae aet sotree disk.) 


bl Uideo Editor-.. ^25 

Lets usas witFi Uideo Dialay Terainals edit 
ad ir*:ut data into OftniFORTH screens. H-e Uideo 
Editor- is an extension to the aiTOR ttiat provides 
or-sor c-ontrel furcticfs. cw-the eritire screefi. 

new Uideo Editor- is supplied withi SCROC ctrsor 
rciutines that Kiay be Btodified fa you- tersinal. 
tones witFi scu-ce listirds- ad user- docunentation. 
‘.CteniFORTH users det source ai disk.) 

c) OmniFORTH 2.-3 Source.. ^95 

Ircludes S^i FIsseffibla souce listings and disk. 
Resuir-es fl.N. ftehley's FDS (frcaaM Deuelcesent 
jysseft) ter tTe f-tor-th Sta Minidisk.. CUE.to«er aiust 
siai 3C.ftware Licaise fia'eeBierit prior- to shipttent. 

New SofUiare to te Released:. 

a) OfniFCRTH supportira FORTH-79 stadads. 

(ft^ailable after Marc-Fi 1981 for- $95. 

CUrait Cfcrii FORTH users det update for $30) 

b) 0»niFORTH for the Radio SFiack TRS-80 
(Ma'ch 1981 with. FORTH-79 standards for $95) 

c) Floatind Point firithisetic- Routines. 

d) OlrniFCRTH toaila- to- the 8888 / ZS8. 

e) yord Fr-ocessor. 

f I Data Base Haiade»erit Syste*. 


Disk Access tfeird RtDSK 


CtaniFORTH 2.3 was released without, exawies m how 

wt^Rtfi to section deals 

i^rdocwiled O^iiFORTH word) that lets 

system dependent word 
^ b. IJmFCfTH te interface with u» HorUi Ftar 
disk rent.™ KtM. n. definitia, of RUSK ij 


?ec #sec r./w dTis^dru 


err- 


parameters required by DCOM, 
at**- li the stat of RfiM add-ess. sec is the 
^aKird disk number (0-.349 to sindle 4 double ad 

tr-ari^fpr^'^^ber of sec-tor-s to 
^ais.fa r-rw is the c-owaand (8 = write.. 1 = read. 

} bit <8 = sinale 

1 - d^le.-^., ard dr-iue is 1 thru 4. c-a. 

t 1 z V. 4 fa- birale dens-ity ad HB< 81 8o ftl 9ii 


I CD C:cf>y Disl^. ExaiAF-le usird RHDSK 

iJd'^lSr!- «« to use the OaniFORTH 

.RHDSK to copy disk.s. It c-a be used to 
ftwiiFORTH disk.s witFiout retuTiiria tc* DOS. 

a.‘ Define the TOP of Bemcry aboce LIMIT that cat be 
UMIT OsniFORTH s-ystem htas 

- 11 at 8000 f£k ard we hiad aescry u- to 0806 
that could be used fer the huff a. 


D008 (XWSTflNT TOP 


b.) Defire a constait to the last secto to be aoyed. 
CCCIMflL 350 CONSTflMT LfIST 


double density disks will use 
>^^0 fer LAST while =iuad density will use 788. 


c) f-fcu allocate va-iables. 


8 'JARIAELE DR 
0 'JARIABLE D« 

0 'JARIABLE #SEC 


( driw to be read from ) 
d-i'ye to be written to ) 
*' # of sectors to traisto) 
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d) Oeate a word that increiienis the sector vari^le 

bathe nuifcer of sectors to te tra^t'a'ed 

deterairies if tfe last sector fas been reacfed. 

! NEXT-SEC m « SEC +! C increriient SEC ) 
liO SEC « SSEC « + < lociv^ad LffiT ) 

- DUP 0< IF iSEC +! ( partial #£EC xfer ) 

ELS WJEF THEN < full #SEC xfa' ) 
ISEC € 0= i < if #SC = 0 on LfiST) 

e) How create iKirds'to RERD ard SiRITE disk usird the 
OaniFlKTH RyDSK interface to North Star DOTI. 

!a?ITE ' 'LMT SC« '#SEC 

e DW « RUDSK DISK-ffiRCR ! ; 

£ feD LIHIT SEC i ISEC « 

1 DR € Dia(-Ei«l« ? i 

f) Initialize SEC to zere ad c-oErute tfe ruAter of 

sectors to l» tr-aisferred ISC = <T(F - LIMIT)/ 

(2I%(D0CIT'5' +1)). Note that #SEC is c-oaputed to 
use Besiory fros LIMIT to ere less thiari T(P. 

: INIT-SC 0 SC ! " < zer'o SEC > 

TOP LIMIT - < TCP - LIMIT ) 

. 256 DEHSITV « 1+ * ( 256<DB4SITV +1)) 

/ ! I (set tSEC to fit ) 

a) Defir* a wDrd to c-opa until ISEC - 0. ■ 

; OGPV IHIT-^C ' 

BEGIN REflD WRITE fCXT-SEC UNTIL ' 

■ ."'DONE " 1 ^ ■■ T 

h) Create a word to cotseute density ard drive. 

; D£D DUP 128 DENSITY« * + > 

i) Finally* defire CD to copy disks us-ird the value 
ion ta> of the stack as the ctestination or to-efr ive 
a-d the vali» below as the soiree or fmrc4"ive. 

: CD SUfiP D® DR ! ." COFV DISK FROM “ . 

D£D m ! TO " . CR 
'' ' .•return TO COtTTIHUE" 

■ ‘ KEY 13 = IF OB' EL^ ." WIT " ThBI 1 

Note that GO will print U® {i"iw niHders ad ask 
that you press RETIMI to corttiriue. If a'ly other 
key is pressed* Ihe cc<pa will not exec-ute a'd th* 
Bessaae "OMIT* will print. 


-CteniFORTH Disk Error Recc^very--- 

OKniFCPTH will returr to Itorth Sta' DOS itoie'ver a 
hard disk error occurs. The followird e^^arrle will 
aiw you a routire that returirs contr'ol to CteniFORTH. 


SCR 161 North Star DOS Had Disk. Etw PaW^ 

Review ^wur North Star DOS Sastea Sof twa'e Maiual 
section G for the DCS entry point to WE^ 
disk error rtutire. CW' release had H)E^ located at 
2819 ® loaded with a C3 (JMP) foMoi«d by a two 
byte add-ess (kcations mfl ad 281B). be 

creating a FORTH iW: routine 
request ad retirri control to ycu. 

a) The FORTH lECRR routine prints ihe error aessade 

before executind MPT. , 

: HDERR CR ." HRRD DISK ERp." flKPT ** 

b) Set UP assa^ly cede to enter- 

fiSBIBLER HERE 

yhere flSM®LER est^lishes the vocafcula-y* ad 
HERE pushes the addess of the rex^ available 
dic-ticna-^ la:atic*i ont-o the stads. tote tl^iai it 
is not necessa-^ to use the word CM)E to create a 
word header cr dictiona-y eritry for' the reutirle. 

c) Create code thet will diep to CteriiFORTH H)ERR,. 

' HDERR I LXI TEXT JhP 

ft FCPTH word car be entered frea assei^Iy cpto^^^^^^ 
plac-ind the pa-^ter field acfcS'ess in the irit^ 
preter pointer and executirid TEXT. The 8^.-'ZSp 
CteniFCPTH interprets pointer is the K redistcr ^ 
pair ad is referred to as I and k in the 
ASSEMBLER. , : V . 

d) Poke into raasore location 201A. 

281fl ! 

Thiis corapetes the had disk, errcr Patch, friy 
atteffrt to access disk. tTet carses a disp to MS 
HDERR will riow execute the CteriiFORTH MSP. 
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-—Iteira Intemjpis in CtoniFCRTH -—— 

ftmiFWH 2.3 did not include docusentation on 
to use interini^ts. of this newsletter 

illustrates a few exawles that will auide ^ in 
codirid internrt taslss in fcotti flSSftER and in hieh 
level F(K1H. Even thoMy exaffpies are aiven that 
apply to the Mtrth Star ccaputer^ we hcee thiat you 
can learn fr-cm theia apply siiisilar techrii*^ 
y«i'own systea. 

Before prooKdindj the OwniFC^TH RSSEf®£R shcwld 
be read ard inderstood. Vou shiouid alM review how 
your pa’iicular systea and (^U tiaxiles interr-ii^ts. 
This discMssion assuaes that i«u already und«‘-stand 
soffiethird about interftrts and FORTH in aerieral. 

Only 8^ or ^ aode 0 interrupts are shown in the 
followird exaiiF-les, liJe t»pe that cnce urderstard 
hoWi the acde 0 interriFt Pfiwssird works> you c» 
adft;aice to the other aodes siffported by yoir- CHI. 

The initial intempt resporise routine rsust be 
written in aachiw code became redisters tfiat wre 
beind used ihen the interrtpt cccu's aust be sa'jed. 
The reaainird interrupt task can be dcf» in assesibly 
(thich has the a<J^antade of execution speed) cr you 
»a« switch to FdTH iftr the ease of hi A le^)ei code. 
Final lyj the restorind of redistej^ and retipn to 
horaal prccessira will be coded in ,asseafaly. 


SO? # ^ north Star Dish Read'Urite Interrupt Patch 

It shaild te noted thiat the HcHh SW- disfv system 
Card most other dish, systems) carriot be interupted 
ihile aahird disk tra'isfers. 

This patch will enable your GteniFORTH to axess the 
north Star disl<, <#ien usind intaxupts. It is a new 
definition of R/U that dis^les interrupts before 
acessihs the di^ and envies internets after the 
dish trarisfer has bear coapleted. 

a) Code routires to disdile and enable internets. 

‘ CODE :DI DI fCJfr JfP , 

CODE :Ef ir HEKT - 

b) itew FCRTH (iiaxl to read / write di#. withi interrupt 
disablind ard en^lird. 


m 

: •d?4l SIBP T&S(^ 

>R DENSITY« 0= 1 + R> 

DEienV # IF 88 ELSE 0 TIEN 
DRIUE «, CR :D1 :EI 

DI£K-«^!;i 

This new defiration of R/U reaiires the saae 
paraeters < ai^ blh f ) on the stack for the 
add'ess of the l 3 «#fer> block nuiierj. and flad to 
leite h =0 or, 'read:!^!;. ■ , ■ . r, , . 

c) Define the Patdi new R4I to old R/ij word. 7 •, 

: pfiTCH-R/tl: ' ' . . . 

'cFfl 'm i 
' SS CFfl " Rill 2 r ! ; , 

d) Execute the patdito install new R/W. 

PflTCH-R-li 

This will Patch the new code field into R/y 
ard store the JS return to cow>lete the patch. 


SCR # 63 north Star ^eal Ti*e Clock Counter , < 

This exaple iltetrates hew the Horth Sta- real 
tine clock internet can: cause a cnffjter INTC to be 
incremented. It risK as an irdepenctent ta^ to FCRTH 
where FIRTH cai read INTC at anytine to test it. 

a) Create a FCRTH variable to hold the count. 

>EX 8’JRliK 

b) Irrjoke the Ksediler ard store the entrv roint on 
the stach. 

fiSSpiBLER tt?E 

ftfter the resPitsEe cocte is complete^ we will code 
a June. to HEfE at the interrupt vectcr locatim 
used by the clM. 

c) Save ariy redistws that will be used or altaxd tw 

the interriet response code. ‘ 

H PUSH PSiPUSH 

d) The internet task, irereserit the va'iable INTC. 

INTCLHLD i INK INTC SUD 
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e) R&set the real tiae clod', flaa (systea dependent). 

58RlfJl 6 011 

f) Restore the sawed redisters^ eridjle th* interf\ipt> 
and return fV^oa thie int^rf^ 

PSyPQP HPOP El RETI 

3 ) Pote a W HKE at the intempt wectch adcft^s 8 . 

This fiOwflet^ tt» inlernpt code and installs a 
Juw» to HERE (the b^innira of our routine) in the 
interttPt Vector 

h) The followira routine is used to start the clock. 

i flRH-CLJOCK C 8 6 P! JEr J 

CflUlION: Resesher that the Horth Star disk cannot 
be intempted. Don't foraet to patch in tte ne« R/W 
disk word displayed on screen 62 before attartira 
disk access. 


SCR # 64 

This exaaple is siBPlified and is used crtly to 
illustrate the use of hish leuel FORTH in the 
interrupt <Ode. 

a) Create a code routine that will restore the 
redisters and reUrn froa the interrtpt. 

CGDEsRETI 

Dl PSy P(F^^ 1 H POP El RETI 

W tt'ite the hiah level F^ intempt respcme code 
(you shtxjld try to keep it as short as possible). 

: IWl ." IfflERRUPT I " CR :RETI I 

Note that the seBicolon ; will never execute in 
IHTl because :RET1 will retirn to thie interrupted 
process by execulird the RETI iristiTjctioTu^^^^^ 

c) Evoke the assesibler. sa>e all the roisters that 
will be used in your resporise^ and then eriable 
interrupts. 

fiKE®LERl€RE 

H PUSH H PUSH I PUSH PSW FUSH El 


d) Cause execution of INTI by loadirta the PFfl (para- 
aeter field address) of IMTi into the interpreter 
pointer arid then JuBP to ®(T. 

' INTI I LKl f€KT JHP 

e) Poke a JIP iB?E into the interrupt vector at 
aeftory location @ai. Note that lERE t&s pushied 
onto the stack in step c). above and points to the 
besirmina of the asseably code to sawe ptoaraa 

■'■’"'reiister^. ', *. 

C3 8 C! 9 ! 

f) Code a retart to enable testina interTUPl. 

CODE sRSTl 1 RST ffiCT M 

The RST restart intructiwu or software intempti 
perforas the saae action as a calL but Jubps to 
only one of eiM iseaory locatioris. 


Inst. 

Hector 

Inst. 

Uector 

0RST 

eoH 

1 RST 

88 H 

2RST 

19H 

3 RST 

18H 

4 RST 

20 H 

5 RST 

m 

6 RST 

30H 

7 RST 

m 


SER f ^ I’tonaa^abia Merript to fl^T 

This can be a hi^ily useful routine if you hiave 
access to the Mfl intempt lire. It allows yoi to 
Bal« an fMS?T button thet can interrupt r^iatiiay FORTH 
raitines. This routire will returri control to yw 
without resuiriris «3U M your a^licatiM. 

a) The interrupt response code in thiis exarple is 
hiS^ level FORTH ard prints "H1I* m the ccnsole 
before exeOutina M?T. 

! NHI CR . ■ NHI " ABORT ; 

b) Create initial interrupt response code. 

■ ■ r. r ' 

ASSEMBLER HERE 

El ' HMI T LKI NEKT JMP 

c) Poke the JMP HERE at the NMI vector location 66H. 

C3 66 G! 67! 


Note that this exasple does not require sa'jina 
proaraa reaisters/ the erwirorfient^ or retumina froa 
the intemrt. f®J?T creates a rew err./ir'orftent for 
OBsiiF(S?TH by clea'ina the stack ard reUmina contj-ol 
to the operators terminal. 

.... . JS 






